﻿Imports System.IO
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.Common
Public Class DatabaseSearchScreen

    Private Sub ShowResultsBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowResultsBtn.Click
        Me.Visible = False
        ResultScreen.Visible = True

        'Kanw clear to ResultBox
        ResultScreen.ResultBox.Items.Clear()
        'Kanw clear to GridView
        ResultScreen.GridView.DataSource = ""

        If (PinakesCbox.Text = "") Then
            MessageBox.Show("Δεν επιλέχθηκε πίνακας για την αναζήτηση" & vbLf & "Ξεκινήστε μια καινούρια αναζήτηση απο το κουμπί New Search")
        End If

        If PediaEmfCbox11.Text = "" Then
            MessageBox.Show("Δεν επιλέχθηκε πεδίο εμφάνισης για την αναζήτηση" & vbLf & "Ξεκινήστε μια καινούρια αναζήτηση απο το κουμπί New Search")

        End If

        ''''''''''''''''''''''''''''''''''''''''''''''''''
        ''''''''''''''''''''''''''''''''''''''''''''''''''
        'epiloges gia ena pedio emfanisis me ena periorismo
        If (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text = "") And (AndOrCbox1.Text = "") Then
            ' MessageBox.Show("if 1")

            If PediaCbox11.Text = "" Then


                MessageBox.Show("Δεν έγινε επίλογη πεδίου για περιόρισμο," & vbLf & "θα εμφανιστούν όλες οι τιμές του πέδιου εμφάνισης.")

                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result")

                        'Emfanizw thn entolh sto ResultBox
                        ResultScreen.ResultBox.Items.Add(strSQL)
                        'For Each dr As DataRow In _
                        'ds.Tables("result").Rows()
                        '  ResultScreen.ResultBox.Items.Add(dr(PediaCbox.SelectedItem.ToString))
                        '   ResultScreen.ResultBox.Items.Add(dr(PediaCbox2.SelectedItem.ToString))

                        'Next dr

                        'Emfanizw ta apotelesmata sto GridView
                        ResultScreen.GridView.DataSource = ds.Tables("result")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If

            If PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "" Then
                MessageBox.Show("Δεν επιλέχθηκε πράξη για την αναζήτηση" & vbLf & "Ξεκινήστε μια καινούρια αναζήτηση απο το κουμπί New Search")
            End If
            If PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result1")

                        'Emfanizw thn entolh sto ResultBox
                        ResultScreen.ResultBox.Items.Add(strSQL)
                        'Emfanizw ta apotelesmata sto GridView
                        ResultScreen.GridView.DataSource = ds.Tables("result1")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is not equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result2")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result2")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is less than" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result3")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result3")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is less than or equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result4")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result4")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is greater than or equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result5")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result5")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is null" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result6")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result6")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "starts with" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result7")

                        ResultScreen.ResultBox.Items.Add(strSQL)


                        ResultScreen.GridView.DataSource = ds.Tables("result7")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "does not start with" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result8")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result8")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "contains" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE " + " '%" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result9")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result9")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "does not contain" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE " + " '%" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result10")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result10")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is in list" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox11.Text + "') "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result11")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result11")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is not in list" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox11.Text + "') "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result12")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result12")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'epiloges gia emfanisi 2 pediwn me ena h kanena periorismo
        ElseIf (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text <> "") And (AndOrCbox1.Text = "") Then
            If PediaCbox11.Text = "" Then


                MessageBox.Show("Δεν έγινε επίλογη πεδίου για περιόρισμο," & vbLf & "θα εμφανιστούν όλες οι τιμές του πέδιου εμφάνισης.")

                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result")

                        ResultScreen.ResultBox.Items.Add(strSQL)
                        ResultScreen.GridView.DataSource = ds.Tables("result")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If
            If PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "" Then
                MessageBox.Show("Δεν επιλέχθηκε πράξη για την αναζήτηση" & vbLf & "Ξεκινήστε μια καινούρια αναζήτηση απο το κουμπί New Search")
            End If
            If PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result1")

                        'Emfanizw thn entolh sto ResultBox
                        ResultScreen.ResultBox.Items.Add(strSQL)
                        'Emfanizw ta apotelesmata sto GridView
                        ResultScreen.GridView.DataSource = ds.Tables("result1")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is not equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result2")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result2")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is less than" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result3")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result3")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is less than or equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result4")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result4")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is greater than or equal to" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text

                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result5")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result5")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is null" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result6")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result6")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "starts with" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result7")

                        ResultScreen.ResultBox.Items.Add(strSQL)


                        ResultScreen.GridView.DataSource = ds.Tables("result7")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "does not start with" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result8")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result8")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "contains" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE " + " '%" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result9")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result9")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "does not contain" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE " + " '%" + EpilogiTbox11.Text + "%' "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result10")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result10")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is in list" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox11.Text + "') "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result11")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result11")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            ElseIf PediaCbox11.Text <> "" And EpilPraxisCbox11.Text = "is not in list" Then
                Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                               + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox11.Text + "') "
                Try
                    Using adapter As New OleDbDataAdapter(strSQL, _
                      My.Settings.ConnectionString)

                        Dim ds As New DataSet
                        adapter.Fill(ds, "result12")

                        ResultScreen.ResultBox.Items.Add(strSQL)

                        ResultScreen.GridView.DataSource = ds.Tables("result12")
                    End Using
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try

            End If

            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'epiloges gia ena pedio emfanisis me 2 periorismous me and
        ElseIf (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text = "") And (AndOrCbox1.Text = "AND") Then

            If EpilPraxisCbox11.Text = "is equal to" Then
                If AndOrCbox1.Text = "AND" Then
                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is not equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than or equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is null" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is greater than or equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "starts with" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not start with" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "contains" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not contain" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is in list" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is not in list" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If
            'telos epilogown emfanisis enos pediou me 2 periorismous me and
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'epiloges gia emfanisi enos pediou me 2 periorismous me or


        ElseIf (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text = "") And (AndOrCbox1.Text = "OR") Then

            If EpilPraxisCbox11.Text = "is equal to" Then
                If AndOrCbox1.Text = "OR" Then
                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is not equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than or equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is null" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is greater than or equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "starts with" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not start with" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "contains" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not contain" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is in list" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is not in list" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If
            'telos epilogwn enos pediou me 2 periorismous me or
            '''''''''''''''''''''''''''''''''''''''''''''''''''''
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''

            'epiloges gia emfanisi 2 pediwn me 2 periorismous me and
        ElseIf (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text <> "") And (AndOrCbox1.Text = "AND") Then

            If EpilPraxisCbox11.Text = "is equal to" Then
                If AndOrCbox1.Text = "AND" Then
                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is not equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than or equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is null" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is greater than or equal to" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "starts with" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not start with" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "contains" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not contain" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is in list" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is not in list" Then

                If AndOrCbox1.Text = "AND" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " AND " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            '''''''''''''''''''''''''''''''''''''''''''''
            ''''''''''''''''''''''''''''''''''''''''''''
            'telos epilogwn gia 2 pedia emfanisis me 2 periorismoun me and

            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'epiloges gia 2 pedia emfanisis me 2 periorismous me or

        ElseIf (PinakesCbox.Text <> "") And (PediaEmfCbox11.Text <> "") And (PediaEmfCbox12.Text <> "") And (AndOrCbox1.Text = "OR") Then

            If EpilPraxisCbox11.Text = "is equal to" Then
                If AndOrCbox1.Text = "OR" Then
                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " = " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is not equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <> " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " < " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If

            If EpilPraxisCbox11.Text = "is less than or equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " <= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is null" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IS NULL " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is greater than or equal to" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " >= " + EpilogiTbox11.Text + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "starts with" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not start with" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "contains" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + "  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "does not contain" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT  LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT LIKE  '%" + EpilogiTbox11.Text + "%' OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is in list" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If


            If EpilPraxisCbox11.Text = "is not in list" Then

                If AndOrCbox1.Text = "OR" Then

                    If EpilPraxisCbox12.Text = "is equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " = " + EpilogiTbox12.Text

                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <> " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " < " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is less than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " <= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is greater than or equal to" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " >= " + EpilogiTbox12.Text
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is null" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IS NULL "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "starts with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not start with" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "contains" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " LIKE " + " '%" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "does not contain" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT LIKE " + " '" + EpilogiTbox12.Text + "%' "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    ElseIf EpilPraxisCbox12.Text = "is not in list" Then
                        Dim strSQL As String = "SELECT " + PediaEmfCbox11.SelectedItem.ToString + "," + PediaEmfCbox12.SelectedItem.ToString + " FROM " + PinakesCbox.SelectedItem.ToString _
                + " WHERE " + PediaCbox11.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') " + " OR " + PediaCbox12.SelectedItem.ToString + " NOT IN " + " ('" + EpilogiTbox12.Text + "') "
                        Try
                            Using adapter As New OleDbDataAdapter(strSQL, _
                              My.Settings.ConnectionString)

                                Dim ds As New DataSet
                                adapter.Fill(ds, "result1")

                                'Emfanizw thn entolh sto ResultBox
                                ResultScreen.ResultBox.Items.Add(strSQL)
                                'Emfanizw ta apotelesmata sto GridView
                                ResultScreen.GridView.DataSource = ds.Tables("result1")
                            End Using
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                    End If
                End If
            End If
            'telos epilogwn gia 2 pedia kai 2 periorismous me or
            ''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''''''''''''''''''''''''''''''''''

        Else
            Dim strSQL As String = ""
            MessageBox.Show("Η αναζήτηση δεν έγινε σωστά" & vbLf & "Ξεκινήστε νέα ανάζήτηση συμπληρώνοτας σωστά τα πεδία και τους περιορισμούς")
        End If

    End Sub
    

    Private Sub PediaEmf1Checkbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PediaEmf1Checkbox.CheckedChanged
        If PediaEmf1Checkbox.Checked Then
            PediaEmfCbox12.Enabled = True
        Else
            PediaEmfCbox12.Enabled = False
        End If
    End Sub

    Private Sub PediaEmf2Checkbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PediaEmf2Checkbox.CheckedChanged
        If PediaEmf2Checkbox.Checked Then
            PediaEmfCbox22.Enabled = True
        Else
            PediaEmfCbox22.Enabled = False
        End If
    End Sub

    Private Sub PediaEmf3Checkbox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PediaEmf3Checkbox.CheckedChanged
        If PediaEmf3Checkbox.Checked Then
            PediaEmfCbox32.Enabled = True
        Else
            PediaEmfCbox32.Enabled = False
        End If
    End Sub

    Private Sub AndOrCbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AndOrCbox1.SelectedIndexChanged
        If Not AndOrCbox1.Text = "" Then
            PediaCbox12.Enabled = True
            EpilPraxisCbox12.Enabled = True
            EpilogiTbox12.Enabled = True
        Else
            PediaCbox12.Enabled = False
            EpilPraxisCbox12.Enabled = False
            EpilogiTbox12.Enabled = False
        End If
    End Sub

    Private Sub AndOrCbox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AndOrCbox2.SelectedIndexChanged
        If Not AndOrCbox2.Text = "" Then
            PediaCbox22.Enabled = True
            EpilPraxisCbox22.Enabled = True
            EpilogiTbox22.Enabled = True
        Else
            PediaCbox22.Enabled = False
            EpilPraxisCbox22.Enabled = False
            EpilogiTbox22.Enabled = False
        End If
    End Sub

    Private Sub AndOrCbox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AndOrCbox3.SelectedIndexChanged
        If Not AndOrCbox3.Text = "" Then
            PediaCbox32.Enabled = True
            EpilPraxisCbox32.Enabled = True
            EpilogiTbox32.Enabled = True
        Else
            PediaCbox32.Enabled = False
            EpilPraxisCbox32.Enabled = False
            EpilogiTbox32.Enabled = False
        End If
    End Sub

    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
        HelpScreen.Visible = True
    End Sub
End Class